-
-
1ActiveWorkbook.ActiveSheet.UsedRange.Copy ThisWorkbook.ActiveSheet.Range("AP1") ActiveWorkbook.Close SaveChanges:=False
-
8
-
5Sub 数码打印计价() Dim x For x = 150 To 155 If Cells(x, 3) = "生产" Then End If Next For x = 150 To 155 If Cells(x, 15) = "" Then Cells(x, 16) = 0 ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.125 And Cells(x, 15) = "四色" Then Cells(x, 16) = 10 ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.25 And Cells(x, 15) = "四色" Then Cells(x, 16) = 18 ElseIf Cells(x, 7) = "≤ 300g" And Cells(x, 8) <= 5 And Cells(x, 11) <= 0.425 And Cells(x, 15) =
-
7
-
2
-
2
-
2具体情况:电脑里有很多文档,其中一些文档内有特殊标记,例如包含某一地名,那我需要将此文档命名为“地名-文件名”的格式。据此,我分别向文心一言和讯飞心火提问如下: “如何批量找出含安徽或者安 徽或者安 徽或者山东或者山 东或者山 东或者陕西或者陕 西或者陕 西的word文档,如果文档内安徽或者安 徽或者安 徽,则将安徽-加到文档名的开头,如果文档内含有山东或者山 东或者山 东,则将山东-加到文档名的开头,,如果文档内含有含
-
2价格低的来联系,后续有单欢迎合作
-
1
-
12
-
1源文件是详细文字表格 目标文件是制式表格,想实现的功能是:在目标文件里,直接模糊查询表格内一两项,可以将源文件里相应内容直接调用出来。同时打印,我不想用vlookup函数,几千条数据,影响速度。
-
4
-
20如题,我先随便发几个,如果有人共享,那就一直更新.没有就算了.....
-
6本文件夹里有若干个excel文件,要把每个文件里面sheet(只有一個sheet)批量改成统一的指定名字
-
1请求大神帮帮忙,VBA将.doc文档的黑色字符设为自动色,其它色的字保持不变。
-
13
-
3了解些EXCEL操作ACCESS的方法,感觉自学太难,想问有VBA群吗?互相交流学习
-
0
-
2cnSq = "SELECT 题号, 题目, 答案, 解析 FROM (" & _ "SELECT TOP 1 题号, 题目, 答案, 解析 FROM Individualchoicequestions WHERE 章节 = 'A01' AND 状态 = NO ORDER BY Rnd(-Timer()*题号)" & _ "UNION ALL " & _ "SELECT TOP 1 题号, 题目, 答案, 解析 FROM Individualchoicequestions WHERE 章节 = 'A02' AND 状态 = NO ORDER BY Rnd(-Timer()*题号)" & _ "UNION ALL " & _ "SELECT TOP 1 题号, 题目, 答案, 解析 FROM Individualchoicequestions WHERE 章节 = 'B01' AND 状态 = NO " & _ "UNI
-
1
-
1如题,如何在sheet中插入列表控件,并让其显示在指定单元格下方,这个早前接触过能实现的,但是时间有点久我整忘了,大佬怎么写啊
-
4
-
34
-
3各位大佬求助,想实现一个功能:代码写在个人宏工作簿里,只要当前运行的工作簿有更改,就运行自动保存。 下面这个代码只能实现本工作簿自动保存
-
8以下是代码 Sub 更新物料代码() Dim conn As New 网页链接Dim sj As String With Sheets("物料代码").Range("a2:F" & Sheets("物料代码").Range("a65536").End(xlUp).Row) .ClearContents End With 网页链接"Provider = Microsoft.ACE.OLEDB.12.0;Data Source=E:\360MoveData\Users\Administrator\Desktop\统计单.accdb" sj = "select 物料代码,名称,图纸号,客户 from [lbk]物料代码[rbk]" Sheets("物料代码").Range("a2").CopyFromRecordset conn.Execute(sj) End Sub 求各位大佬帮助
-
6
-
25首先chuhuori设成了公共变量,数据类型是date,前面的代码都能跑完,也能给chuhuori赋值2024/4/16这个日期,然后在下面这一行提示类型不匹配 if chuhuori <> '''' then 于是乎我不理解了。 在之前这个宏是能跑完不报错的,包括上面出错的if那一条,后面为了追加计数功能又加了几行,然后把chuhuori变成了公共变量,就报错了,但是不管怎么说,只是用if判断为不为空也不至于类型不匹配啊,如果是chuhuori类型有问题,那它也跑不出2024/4/16这个日期,应该在
-
9线上答疑,英语要好,985/211本科大三以上,研究生更好
-
6
-
2
-
39A列 D列 F列 00031 华为 仓储 00031 华为 运输 00031 华为 物流 00031 华为 仓供应 00031 华为 物管理 00032 小米 仓储 00032 小米 运输 00032 小米 仓供应 数组1=仓储,运输,物流 数组2=仓供应,物管理 请问如何用vba写规则: 先根据a列编号找出所有同编号的数据行,找出之后,如果同一个编号F列数据中包含数组1与数组2则,标红数组1 A列 D列 F列单元格
-
7Sub FilterRows() ' 根据第7列的值来筛选数据,并且筛选条件为当前选定单元格的值 ActiveSheet.Range("A6").AutoFilter Field:=Selection.Column, Criteria1:=Selection.Value ' 将筛选后的结果复制到当前活动的工作表之后 With ActiveSheet .Cells.Select Selection.Copy End With Sheets.Add(After:=ActiveSheet).Paste ActiveSheet.Rows("1:4").ClearContents For Each cell In ActiveSheet.Rows(5).Cells If Not IsDate(cell.Value) Then cell.ClearContents End If Next cell End Sub 运行能运行出来,就是只是一个筛选功能也太久了吧
-
2求助,在corelvba控件中用qrmaker.ocx生成二维码后需要再粘贴到文档,CellPitch调大也没用,生成的间隔始终太小,效率也麻烦,想用createoleobject QRmakerCtrl.1直接创建,生成后发现没有Input输入口,不能更改,求大神们好心教教
-
9
-
5求一个vBAv日期控件,或双击自动添加日期也行
-
11
-
6
-
7Sub 按钮2_Click() 'On Error Resume Next Dim ironAccessories As Variant ' 铁附件明细 Dim civilEngineering As Variant ' 土建 Dim auxiliaryMaterials As Variant ' 辅材 Dim i As Integer Dim j As Integer Dim k As Integer Dim maxRow As Integer Dim maxRowhz As Integer Dim maxRowjg As Integer Dim strPath As String Dim strSht As String Dim wb As Workbook Dim sht As Worksheet Dim tag As Boolean strPath = Application.ActiveWorkbook.Path '找到当前目录 maxRow = Sheets("填写数字").Range("a" & Rows.Count).End(xlUp).Row Set wb = Nothing maxRowhz
-
2
-
10
-
1Columns("C:C").Select Application.CutCopyMode = False Selection.FormatConditions.Add Type:=xlTextString, String:="=$O$1", _ TextOperator:=xlContains Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Color = -16383844 .TintAndShade = 0 End With With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13551615 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False End Sub 这个包含高亮怎么循环到整个O:O列,目前只有单个单元格,有没有
-
6
-
1
-
20为啥同样代码copy在Excel2010里运行0.几秒的在office365里就要20多秒,老是提示粘贴板问题。
-
4Sub 九九乘法表() Dim a%, b% For a = 1 To 9 For b = 1 To 9 If a > b Then Cells(a, b) = "" Else Cells(a, b) = a & "x" & b End If Next b Next a End Sub 运行的时候显示“else没有if” 修改后 Sub 九九乘法表() Dim a%, b% For a = 1 To 9 For b = 1 To 9 If a > b Then Cells(a, b) = "" Else Cells(a, b) = a & "x" & b End If Next b Next a End Sub 这样就可以运行了。使用else时必须每个执行语句都是单独成行吗?
-
14